BBS in a Box 11

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Prog / D-G / FORTRAN Goodies.sit / FORTRAN Goodies / Asin.txt < prev next >
MacBinary | 1991-08-16 | 2.5 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Asin.txt
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Swift 3D 3D Graphic `(poly/swift3D3DGraphic)`	ext	Unsupported
`1%`	dexvert	Boost Text serialization `(other/boostTextSerialization)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Fri Aug 16 12:11:12 1991, modified Fri Aug 16 12:11:12 1991, creator 'MPS ', type ASCII, 2007 bytes "Asin.txt" , at 0x857 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 41 73 69 6e 2e 74 | 78 74 00 00 00 00 00 00 |..Asin.t|xt......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 07 d7 00 | 00 01 7e a4 d1 a9 a0 a4 |........|..~.....|
|00000060| d1 a9 a0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 af 5a 00 00 |........|.....Z..|
|00000080| 63 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |c*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 63 0d 63 0d 63 20 20 |********|*c.c.c  |
|000000b0| 41 53 49 4e 20 20 20 0d | 63 0d 63 09 41 72 63 53 |ASIN   .|c.c.ArcS|
|000000c0| 69 6e 20 72 65 74 75 72 | 6e 73 20 61 6e 20 61 6e |in retur|ns an an|
|000000d0| 67 6c 65 20 65 78 70 72 | 65 73 73 65 64 20 69 6e |gle expr|essed in|
|000000e0| 20 72 61 64 69 61 6e 73 | 0d 63 09 66 6f 72 20 61 | radians|.c.for a|
|000000f0| 6e 79 20 78 20 77 68 65 | 72 65 20 2d 31 3c 3d 20 |ny x whe|re -1<= |
|00000100| 78 20 3c 3d 20 31 0d 63 | 0d 63 09 09 09 09 09 09 |x <= 1.c|.c......|
|00000110| 09 09 09 09 09 09 09 09 | 20 0d 63 09 57 69 6c 64 |........| .c.Wild|
|00000120| 20 54 68 69 6e 67 73 20 | 41 53 49 4e 20 09 09 09 | Things |ASIN ...|
|00000130| 09 09 09 09 09 09 20 20 | 0d 63 20 20 a9 20 31 39 |......  |.c  . 19|
|00000140| 38 39 20 4c 61 6e 67 75 | 61 67 65 20 53 79 73 74 |89 Langu|age Syst|
|00000150| 65 6d 73 20 43 6f 72 70 | 6f 72 61 74 69 6f 6e 09 |ems Corp|oration.|
|00000160| 09 09 09 09 20 0d 63 09 | 41 6c 6c 20 52 69 67 68 |.... .c.|All Righ|
|00000170| 74 73 20 72 65 73 65 72 | 76 65 64 09 09 09 09 09 |ts reser|ved.....|
|00000180| 09 09 09 09 20 0d 63 0d | 63 2a 2a 2a 2a 2a 2a 2a |.... .c.|c*******|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001b0| 2a 63 0d 63 09 55 53 41 | 47 45 3a 0d 63 09 41 53 |*c.c.USA|GE:.c.AS|
|000001c0| 49 4e 20 28 74 68 65 56 | 61 6c 75 65 29 20 20 20 |IN (theV|alue)   |
|000001d0| 0d 63 0d 63 20 20 54 68 | 69 73 20 58 46 43 4e 20 |.c.c  Th|is XFCN |
|000001e0| 75 73 65 73 20 6f 6e 6c | 79 20 73 74 61 6e 64 61 |uses onl|y standa|
|000001f0| 72 64 20 67 6c 75 65 20 | 72 6f 75 74 69 6e 65 73 |rd glue |routines|
|00000200| 2e 0d 63 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..c*****|********|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 63 0d 63 20 20 |********|***c.c  |
|00000230| 75 73 65 20 74 68 65 73 | 65 20 63 6f 6d 6d 61 6e |use thes|e comman|
|00000240| 64 73 20 74 6f 20 63 6f | 6d 70 69 6c 65 20 61 6e |ds to co|mpile an|
|00000250| 64 20 6c 69 6e 6b 3a 0d | 63 0d 21 21 49 46 43 20 |d link:.|c.!!IFC |
|00000260| 46 41 4c 53 45 0d 0d 66 | 6f 72 74 72 61 6e 20 41 |FALSE..f|ortran A|
|00000270| 53 49 4e 2e 66 0d 0d 6c | 69 6e 6b 20 2d 72 74 20 |SIN.f..l|ink -rt |
|00000280| 58 46 43 4e 3d 35 30 30 | 32 20 2d 77 20 2d 6d 20 |XFCN=500|2 -w -m |
|00000290| 41 53 49 4e 20 b6 0d 2d | 73 6e 20 4d 61 69 6e 3d |ASIN ..-|sn Main=|
|000002a0| 41 53 49 4e 20 b6 0d 2d | 73 6e 20 66 5f 52 75 6e |ASIN ..-|sn f_Run|
|000002b0| 54 69 6d 65 3d 41 53 49 | 4e 20 b6 0d 2d 73 6e 20 |Time=ASI|N ..-sn |
|000002c0| 66 5f 49 6e 74 72 69 6e | 73 69 63 73 3d 41 53 49 |f_Intrin|sics=ASI|
|000002d0| 4e 20 b6 0d 41 53 49 4e | 2e 66 2e 6f 20 b6 0d 22 |N ..ASIN|.f.o .."|
|000002e0| 7b 46 4c 69 62 72 61 72 | 69 65 73 7d 22 46 4f 52 |{FLibrar|ies}"FOR|
|000002f0| 54 52 41 4e 4c 69 62 2e | 6f 20 b6 0d 22 7b 46 4c |TRANLib.|o .."{FL|
|00000300| 69 62 72 61 72 69 65 73 | 7d 22 49 6e 74 72 69 6e |ibraries|}"Intrin|
|00000310| 73 69 63 4c 69 62 2e 6f | 20 b6 0d 22 7b 4c 69 62 |sicLib.o| .."{Lib|
|00000320| 72 61 72 69 65 73 7d 22 | 49 6e 74 65 72 66 61 63 |raries}"|Interfac|
|00000330| 65 2e 6f 20 b6 0d 22 7b | 4c 69 62 72 61 72 69 65 |e.o .."{|Librarie|
|00000340| 73 7d 22 52 75 6e 74 69 | 6d 65 2e 6f 20 b6 0d 2d |s}"Runti|me.o ..-|
|00000350| 6f 20 74 65 73 74 53 74 | 61 63 6b 0d 0d 64 65 6c |o testSt|ack..del|
|00000360| 65 74 65 20 41 53 49 4e | 2e 66 2e 6f 0d 0d 21 21 |ete ASIN|.f.o..!!|
|00000370| 45 4e 44 43 0d 63 0d 63 | 2a 2a 2a 2a 2a 2a 2a 2a |ENDC.c.c|********|
|00000380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003a0| 0d 63 0d 09 73 75 62 72 | 6f 75 74 69 6e 65 20 41 |.c..subr|outine A|
|000003b0| 53 49 4e 28 70 61 72 61 | 6d 29 0d 20 0d 63 20 6c |SIN(para|m). .c l|
|000003c0| 6f 61 64 20 74 68 65 20 | 73 79 73 74 65 6d 20 63 |oad the |system c|
|000003d0| 61 6c 6c 73 0d 20 0d 21 | 21 6d 20 69 6e 6c 69 6e |alls. .!|!m inlin|
|000003e0| 65 73 2e 66 0d 20 0d 63 | 20 69 6e 63 6c 75 64 65 |es.f. .c| include|
|000003f0| 20 74 68 65 20 68 65 61 | 64 65 72 20 66 69 6c 65 | the hea|der file|
|00000400| 0d 20 0d 21 21 49 20 48 | 79 70 65 72 58 43 6d 64 |. .!!I H|yperXCmd|
|00000410| 2e 66 0d 20 0d 63 20 64 | 61 74 61 20 64 65 63 6c |.f. .c d|ata decl|
|00000420| 61 72 61 74 69 6f 6e 73 | 0d 63 0d 09 72 65 63 6f |arations|.c..reco|
|00000430| 72 64 09 09 2f 58 43 6d | 64 44 61 74 61 2f 20 70 |rd../XCm|dData/ p|
|00000440| 61 72 61 6d 0d 09 70 6f | 69 6e 74 65 72 09 09 2f |aram..po|inter../|
|00000450| 69 6e 74 65 67 65 72 2a | 34 2f 20 74 68 65 48 61 |integer*|4/ theHa|
|00000460| 6e 64 6c 65 0d 09 65 78 | 74 65 6e 64 65 64 09 74 |ndle..ex|tended.t|
|00000470| 68 65 56 61 6c 75 65 2c | 74 68 65 41 6e 67 6c 65 |heValue,|theAngle|
|00000480| 0d 09 73 74 72 69 6e 67 | 09 09 74 68 65 53 74 72 |..string|..theStr|
|00000490| 69 6e 67 0d 0d 63 20 63 | 68 65 63 6b 20 70 61 72 |ing..c c|heck par|
|000004a0| 61 6d 65 74 65 72 73 0d | 20 0d 09 69 66 20 28 70 |ameters.| ..if (p|
|000004b0| 61 72 61 6d 2e 70 61 72 | 61 6d 43 6f 75 6e 74 20 |aram.par|amCount |
|000004c0| 3c 3e 20 31 29 20 74 68 | 65 6e 0d 09 09 63 61 6c |<> 1) th|en...cal|
|000004d0| 6c 20 73 79 73 62 65 65 | 70 28 39 29 0d 09 09 74 |l sysbee|p(9)...t|
|000004e0| 68 65 53 74 72 69 6e 67 | 20 3d 20 27 61 6e 73 77 |heString| = 'answ|
|000004f0| 65 72 20 22 41 53 49 4e | 20 72 65 71 75 69 72 65 |er "ASIN| require|
|00000500| 73 20 31 20 61 72 67 75 | 6d 65 6e 74 2e 22 27 0d |s 1 argu|ment."'.|
|00000510| 09 09 63 61 6c 6c 20 53 | 65 6e 64 43 61 72 64 4d |..call S|endCardM|
|00000520| 65 73 73 61 67 65 28 70 | 61 72 61 6d 2c 74 68 65 |essage(p|aram,the|
|00000530| 53 74 72 69 6e 67 29 0d | 09 09 72 65 74 75 72 6e |String).|..return|
|00000540| 0d 09 65 6e 64 20 69 66 | 0d 20 0d 63 20 63 6f 6e |..end if|. .c con|
|00000550| 76 65 72 74 20 61 72 67 | 75 6d 65 6e 74 73 0d 20 |vert arg|uments. |
|00000560| 0d 09 74 68 65 48 61 6e | 64 6c 65 20 3d 20 70 61 |..theHan|dle = pa|
|00000570| 72 61 6d 2e 70 61 72 61 | 6d 73 28 31 29 2e 63 68 |ram.para|ms(1).ch|
|00000580| 0d 09 63 61 6c 6c 20 48 | 4c 6f 63 6b 28 25 76 61 |..call H|Lock(%va|
|00000590| 6c 28 74 68 65 48 61 6e | 64 6c 65 29 29 0d 09 74 |l(theHan|dle))..t|
|000005a0| 68 65 53 74 72 69 6e 67 | 20 3d 20 5a 65 72 6f 54 |heString| = ZeroT|
|000005b0| 6f 50 61 73 28 70 61 72 | 61 6d 2c 74 68 65 48 61 |oPas(par|am,theHa|
|000005c0| 6e 64 6c 65 5e 29 0d 09 | 74 68 65 56 61 6c 75 65 |ndle^)..|theValue|
|000005d0| 20 3d 20 53 74 72 54 6f | 45 78 74 28 70 61 72 61 | = StrTo|Ext(para|
|000005e0| 6d 2c 74 68 65 53 74 72 | 69 6e 67 29 0d 09 63 61 |m,theStr|ing)..ca|
|000005f0| 6c 6c 20 48 55 6e 4c 6f | 63 6b 28 25 76 61 6c 28 |ll HUnLo|ck(%val(|
|00000600| 74 68 65 48 61 6e 64 6c | 65 29 29 0d 0d 63 20 63 |theHandl|e))..c c|
|00000610| 68 65 63 6b 20 74 6f 20 | 6d 61 6b 65 20 73 75 72 |heck to |make sur|
|00000620| 65 20 64 61 74 61 20 69 | 73 20 76 61 6c 69 64 0d |e data i|s valid.|
|00000630| 0d 09 49 66 20 28 28 74 | 68 65 56 61 6c 75 65 20 |..If ((t|heValue |
|00000640| 3c 20 2d 31 2e 30 29 20 | 2e 4f 52 2e 20 28 74 68 |< -1.0) |.OR. (th|
|00000650| 65 56 61 6c 75 65 20 3e | 20 31 2e 30 29 29 20 74 |eValue >| 1.0)) t|
|00000660| 68 65 6e 0d 09 09 74 68 | 65 53 74 72 69 6e 67 20 |hen...th|eString |
|00000670| 3d 20 27 61 6e 73 77 65 | 72 20 22 41 72 67 75 6d |= 'answe|r "Argum|
|00000680| 65 6e 74 20 66 6f 72 20 | 41 53 49 4e 20 6d 75 73 |ent for |ASIN mus|
|00000690| 74 20 62 65 20 2d 31 20 | 3c 3d 20 78 20 3c 3d 20 |t be -1 |<= x <= |
|000006a0| 31 2e 22 27 0d 09 09 63 | 61 6c 6c 20 53 65 6e 64 |1."'...c|all Send|
|000006b0| 43 61 72 64 4d 65 73 73 | 61 67 65 28 50 61 72 61 |CardMess|age(Para|
|000006c0| 6d 2c 74 68 65 53 74 72 | 69 6e 67 29 0d 09 09 72 |m,theStr|ing)...r|
|000006d0| 65 74 75 72 6e 0d 09 65 | 6e 64 20 69 66 0d 0d 63 |eturn..e|nd if..c|
|000006e0| 20 70 72 6f 63 65 73 73 | 20 61 72 67 75 6d 65 6e | process| argumen|
|000006f0| 74 73 0d 63 09 6e 6f 74 | 65 3a 20 75 73 65 20 74 |ts.c.not|e: use t|
|00000700| 68 65 20 74 79 70 65 2d | 73 70 65 63 69 66 69 63 |he type-|specific|
|00000710| 20 63 61 6c 6c 20 28 51 | 41 53 49 4e 29 20 62 65 | call (Q|ASIN) be|
|00000720| 63 61 75 73 65 0d 63 09 | 74 68 65 20 67 65 6e 65 |cause.c.|the gene|
|00000730| 72 69 63 20 63 61 6c 6c | 20 28 41 53 49 4e 29 20 |ric call| (ASIN) |
|00000740| 69 73 20 74 68 65 20 73 | 61 6d 65 20 61 73 20 74 |is the s|ame as t|
|00000750| 68 69 73 20 73 75 62 72 | 6f 75 74 69 6e 65 2e 0d |his subr|outine..|
|00000760| 20 0d 09 74 68 65 41 6e | 67 6c 65 20 3d 20 51 41 | ..theAn|gle = QA|
|00000770| 53 49 4e 28 74 68 65 56 | 61 6c 75 65 29 0d 20 0d |SIN(theV|alue). .|
|00000780| 63 20 70 72 65 70 61 72 | 65 20 74 6f 20 72 65 74 |c prepar|e to ret|
|00000790| 75 72 6e 0d 20 0d 09 74 | 68 65 53 74 72 69 6e 67 |urn. ..t|heString|
|000007a0| 20 3d 20 45 78 74 54 6f | 53 74 72 28 70 61 72 61 | = ExtTo|Str(para|
|000007b0| 6d 2c 74 68 65 41 6e 67 | 6c 65 29 0d 09 70 61 72 |m,theAng|le)..par|
|000007c0| 61 6d 2e 72 65 74 75 72 | 6e 56 61 6c 75 65 2e 63 |am.retur|nValue.c|
|000007d0| 68 20 3d 20 50 61 73 54 | 6f 5a 65 72 6f 28 70 61 |h = PasT|oZero(pa|
|000007e0| 72 61 6d 2c 74 68 65 53 | 74 72 69 6e 67 29 0d 09 |ram,theS|tring)..|
|000007f0| 72 65 74 75 72 6e 0d 09 | 65 6e 64 0d 0d 63 20 69 |return..|end..c i|
|00000800| 6e 63 6c 75 64 65 20 74 | 68 65 20 67 6c 75 65 20 |nclude t|he glue |
|00000810| 72 6f 75 74 69 6e 65 73 | 0d 20 0d 21 21 49 20 58 |routines|. .!!I X|
|00000820| 43 6d 64 47 6c 75 65 2e | 66 0d 63 0d 63 2a 2a 2a |CmdGlue.|f.c.c***|
|00000830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000840| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000850| 2a 2a 2a 2a 2a 63 0d 00 | 00 00 00 00 00 00 00 00 |*****c..|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000890| 04 66 06 20 2e 00 08 60 | 08 48 c7 2f 07 4e ba fe |.f. ...`|.H./.N..|
|000008a0| b2 2b 40 ed 06 2e 2e ff | fc 4e 5e 4e 75 87 5f 75 |.+@.....|.N^Nu._u|
|000008b0| 08 41 73 69 6e 2e 74 78 | 74 00 02 00 00 00 50 61 |.Asin.tx|t.....Pa|
|000008c0| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 01 |rtSITx..|........|
|000008d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 a9 80 18 c3 00 00 | 00 00 00 00 01 7e 2e 00 |........|.....~..|
|00000900| 0c 7e 00 4a ae 00 08 67 | 20 59 8f 2f 2e 00 08 4e |.~.J...g| Y./...N|
|00000910| ad 00 6a 2e 1f be 86 6f | 10 2f 2e 00 08 2f 06 4e |..j....o|./.../.N|
|00000920| ad 00 72 20 2e 00 08 60 | 4e 59 8f 2f 06 4e ad 00 |..r ...`|NY./.N..|
|00000930| 5a 2d 5f ff fc 55 8f 3e | b8 02 20 4a 5f 67 04 70 |Z-_..U.>|.. J_g.p|
|00000940| 00 60 34 4a ae 00 08 67 | 16 2f 2e 00 08 2f 2e ff |.`4J...g|./.../..|
|00000950| fc 2f 07 4e ad 00 8a 2f | 2e 00 08 4e ad 00 62 26 |./.N.../|...N..b&|
|00000960| 47 d7 ee ff fc 28 46 d9 | ee ff fc 60 02 42 1b b9 |G....(F.|...`.B..|
|00000970| cb 62 fa 20 2e ff fc 4c | ee 18 c0 ff ec 4e 5e 4e |.b. ...L|.....N^N|
|00000980| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 38 |........|.......8|
|000009a0| 00 00 00 00 00 00 00 06 | 00 04 00 3c 00 24 00 e5 |........|...<.$..|
|000009b0| 01 70 00 3c 00 24 00 e5 | 01 70 a4 d1 63 50 00 00 |.p.<.$..|.p..cP..|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000009d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 06 bb 54 |...L...L|...2...T|
|000009e0| 04 0c 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000009f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 08 62 00 00 00 |........|....b...|
+--------+-------------------------+-------------------------+--------+--------+